home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / gui / GadEd20Demo.lha / Modula-2 / TestMain.mod < prev   
Encoding:
Text File  |  1993-10-13  |  1.9 KB  |  72 lines
  1. MODULE TestMain;
  2.  
  3. FROM SYSTEM     IMPORT TAG,ADR;
  4. FROM IntuitionD IMPORT SaTags,ScreenPtr,WindowPtr,IDCMPFlags,IDCMPFlagSet,
  5.                        IntuiMessagePtr,GadgetPtr;
  6. FROM IntuitionL IMPORT OpenScreenTagList,CloseScreen,LockPubScreen,UnlockPubScreen;
  7. FROM ExecL      IMPORT WaitPort;
  8. FROM GadToolsL  IMPORT GTGetIMsg,GTReplyIMsg;
  9. FROM GraphicsD  IMPORT ViewModes,ViewModeSet;
  10. FROM UtilityD   IMPORT tagDone,TagItem;
  11. FROM Test       IMPORT InitTest,FreeTest,InitProc000Mask,CloseProc000Mask;
  12. (*                       InitProc001Mask,CloseProc001Mask; *)
  13.  
  14.  
  15.  
  16. VAR Pens       : LONGINT;
  17.     S          : ScreenPtr;
  18.     tags       : ARRAY [0..10] OF TagItem;
  19.     W          : WindowPtr;
  20.     Class      : IDCMPFlagSet;
  21.     Code       : CARDINAL;
  22.     TempGadget : GadgetPtr;
  23.     ID         : INTEGER;
  24.     OK         : BOOLEAN;
  25.     Message    : IntuiMessagePtr;
  26.  
  27. BEGIN
  28.   S:=LockPubScreen(NIL);
  29.   IF InitTest(NIL,NIL) THEN
  30.  
  31.      W:=InitProc000Mask(NIL);
  32.      IF W#NIL THEN
  33.         LOOP
  34.            REPEAT
  35.               WaitPort(W^.userPort);
  36.               Message:=GTGetIMsg(W^.userPort);
  37.            UNTIL Message#NIL;
  38.            Class:=Message^.class;
  39.            Code:=Message^.code;
  40.            TempGadget:=Message^.iAddress;
  41.            GTReplyIMsg(Message);
  42.            IF closeWindow IN Class THEN
  43.              EXIT;
  44.            END;
  45.         END;
  46.         CloseProc000Mask;
  47.      END;
  48. (*
  49.      W:=InitProc001Mask();
  50.      IF W#NIL THEN
  51.         LOOP
  52.            REPEAT
  53.               WaitPort(W^.userPort);
  54.               Message:=GTGetIMsg(W^.userPort);
  55.            UNTIL Message#NIL;
  56.            Class:=Message^.class;
  57.            Code:=Message^.code;
  58.            TempGadget:=Message^.iAddress;
  59.            GTReplyIMsg(Message);
  60.            IF closeWindow IN Class THEN
  61.              EXIT;
  62.            END;
  63.         END;
  64.         CloseProc001Mask;
  65.      END;
  66. *)
  67.      FreeTest;
  68.   END;
  69.   UnlockPubScreen(NIL,S);
  70.  
  71. END TestMain.
  72.